home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / MARKEE.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  91 lines
  1. 0 REM: "═ARQUEE ╨ROGRAM BY ┬RIAN ╙CHOTT         FROM ├OMMODORE ═ICROCOMPUTER"
  2. 1 REM: "═AGAZINE   ╔SSUE 29, PP. 92-95"
  3. 2 REM: "╙LIGHTLY ENHANCED AND UPLOADED          BY ─AN ├HERNOFF    [70056,572]"
  4. 4 IFPEEK(49152+12)<>133THENGOTO800
  5. 5 B=49152
  6. 8 CHAR=B+98
  7. 9 POKE53272,21
  8. 10 POKE53280,6:POKE53281,0:PRINT"ô"TAB(14)"MARQUEE SIGN":PRINTTAB(14)"úúúúúúú úúúú"
  9. 11 PRINT"  ñññññññññññññññññññññññññññññññññññññ"
  10. 12 PRINT"  UPPERCASE ONLY, 255 CHARACTER MAXIMUMÆ":PRINT"";
  11. 13 PRINT"   ENTER THE TEXT FOR THE SIGN:":PRINT"   ";
  12. 14 GOSUB50000
  13. 15 IFB$=CHR$(20)ORB$=CHR$(157)THENA$=LEFT$(A$,LEN(A$)-1):PRINTB$;:GOTO14
  14. 16 IFB$<>CHR$(13)THENPRINTB$;:A$=A$+B$:GOTO14
  15. 17 PRINTCHR$(142);
  16. 20 PRINT"":POKE53281,1:PRINT"ô":POKE53281,0
  17. 25 POKEB+93,40: REM CONTROL SPEED: 1,2,3,4,...,255, 0 FAST TO SLOW
  18. 27 IFA$<>""THEN35
  19. 30 A$="CAB-TEK PRESENTS ITS FINE LINE OF MICROPRINTER SOUND ENCLOSURES  "
  20. 35 MSG=LEN(" "+A$+"  ")
  21. 40 K=K+1
  22. 48 TMP=ASC(MID$(" "+A$+"  ",K,1)):IFTMP>64THENTMP=TMP-64
  23. 50 POKECHAR,TMP:SYS B+108:PRINTCHR$(157);
  24. 60 IFK=MSGTHENK=0
  25. 80 GOTO40
  26. 800 FORA=49152TO49495:READD:POKEA,D:NEXT:GOTO0
  27. 49152 DATA127,127,127,127,127,127
  28. 49158 DATA127,127,160,0,169,0
  29. 49164 DATA133,251,169,4,133,252
  30. 49170 DATA162,24,24,165,251,105
  31. 49176 DATA40,133,251,165,252,105
  32. 49182 DATA0,133,252,169,32,145
  33. 49188 DATA251,202,16,236,16    
  34. 49194 DATA162,3,169,0,133,251
  35. 49200 DATA133,253,169,4,133,252
  36. 49206 DATA133,254,165,253,208,2
  37. 49212 DATA198,254,198,253,177,251
  38. 49218 DATA145,253,200,208,249,230
  39. 49224 DATA252,230,254,177,251,145
  40. 49230 DATA253,200,202,208,237,177
  41. 49236 DATA251,145,253,200,192,232
  42. 49242 DATA208,247,96,0,31,3
  43. 49248 DATA247,96,120,0,60,102
  44. 49254 DATA102,102,102,102,60,0
  45. 49260 DATA169,0,141,99,192,14
  46. 49266 DATA98,192,46,99,192,14
  47. 49272 DATA98,192,46,99,192,14
  48. 49278 DATA98,192,46,99,192,169
  49. 49284 DATA208,72,169,0,72,173
  50. 49290 DATA99,192,72,173,98,192
  51. 49296 DATA72,32,50,193,133,252
  52. 49302 DATA132,251,169,100,133,253
  53. 2460 
  54. 49314 DATA51,133,1,160,7,177
  55. 49320 DATA251,145,253,136,16,249
  56. 49326 DATA169,55,133,1,88,24
  57. 49332 DATA173,22,208,41,248,105
  58. 49338 DATA7,141,22,208,160,7
  59. 49344 DATA 162,7,177,253,10,62
  60. 49350 DATA0,192,202,16,249,136
  61. 49356 DATA16,242,162,7,24,173
  62. 49362 DATA94,192,105,0,133,251
  63. 49368 DATA173,95,192,105,4,133
  64. 49374 DATA252,160,7,152,72,160
  65. 49380 DATA0,169,32,62,0,192
  66. 49386 DATA144,2,169,81,145,251
  67. 49392 DATA56,165,251,233,40,133
  68. 49398 DATA251,165,252,233,0,133
  69. 49404 DATA252,104,168,136,16,223
  70. 49410 DATA138,72,162,6,24,173
  71. 49416 DATA22,208,41,248,134,253
  72. 49422 DATA101,253,141,22,2    
  73. 49428 DATA72,138,174,93,192,160
  74. 49434 DATA0,136,208,253,202,208
  75. 49440 DATA248,170,104,16,231,32
  76. 49446 DATA8,192,104,170,202,16
  77. 49452 DATA163,96,147,192,120,0
  78. 49458 DATA104,141,46,193,104,141
  79. 49464 DATA47,193,104,141,48,193
  80. 49470 DATA104,141,49,193,104,24
  81. 49476 DATA109,48,193,168,104,109
  82. 49482 DATA49,193,170,173,47,193
  83. 49488 DATA72,173,46,193,72,138
  84. 49494 DATA96,96,104,170,202,16
  85. 49500 END
  86. 50000 REM:FLASHES CHAR CURSOR TO SCREEN AWAITING A GET. CHANGE CHAR AS DESIRED
  87. 50010 PRINT" ¥";
  88. 50020 POKE204,0:GETB$:IFB$=""THEN50020
  89. 50030 POKE204,1:PRINT" ¥";
  90. 50040 RETURN
  91.